<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3000</cardID>
<listID>2241</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>on doResScript resName,filePathif filePath is empty then put the value of last word of the long name of this stack into filePathget MtReadTextRsrc(filePath,resName)if "Error :"is not in it thendo itget emptyelse beepreturn itend doResScripton bkup nput "ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ頴ﾃ叡ﾃ丑ﾃ陰ﾃ叡ﾃ益ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"if the FreeSize of this stack > 0 then doMenu "Compact Stack"put value(word 2 of the long name of this stack) into tgStackput getFldrPath(tgStack) into tgPathput char 1 to 27 of the short name of this stack into tgNameif n is not a integer then put 1 into nput max(1,min(n,9)) into nrepeat with r = 1 to nput tgPath & tgName & ".bk" & r into newStackif there is a stack newStack then MtDeleteFile newStackif n > 1 and r < n thenput tgPath & tgName & ".bk" & r + 1 into newStackif there is a stack newStack then MtRenameFile newStack,tgName & ".bk" & rend ifend repeatsave stack tgStack as newStackget the resultif it <> empty then answer itMtCheckIBit newStackhide msgend bkupon dupliCardglobal clipTextset cursor to watchput MtGetClipText() into clipTextdoMenu "Copy Card"doMenu "Paste Card"MtPutOnClip clipTextput empty into clipTextend dupliCardon sendBtn targetBtnset the hilite of targetBtn to truewait 5set the hilite of targetBtn to falsesend "mouseUp" to targetBtnend sendBtnon selectAllLineif value(the clickLine) is empty then exit selectAllLineput target into listput word 2 of the clickLine into clput the number of chars of (line 1 to cl of list) + 1 into yput y - the number of chars of (line cl of list) into xselect char x to y of the targetend selectAllLineon CompactST xif x is not a integer then put 30 into xif the freeSize of this stack > 1024 * x and diskSpace () > the size of this stack and the optionKey is up thenput "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｪﾃﾃｳﾃｹﾃｭﾃ"domenu "Compact Stack"end ifend CompactSTon setMsgLocput min(item 4 of the screenRect - 38,bottom of cd window + 14) into yput y - top of cd window into yget (width of cd window - width of msg) div 2put max(2,min(item 3 of the screenRect - width of msg - 3,max(2,left of cd window + it))) - left of cd window into xset the loc of msg to x,yend setMsgLocon setMenuBar mif item 4 of the screenRect > the height of cd window then exit setMenuBarif m is "true" then show menubar else hide menubarend setmenubaron GoHomewait 15if the optionKey is down or the mouseClick then doMenu "Quit HyperCard"else go Homeend GoHomeon dragListglobal dragSif dragS <> empty thenput word 2 of the selectedLine of the target into dragEif dragE <> dragS thenlock screenput line dragS of the value of the target into txtif txt <> empty thendelete line dragS of the targetput txt & return before line dragE of the targetend ifget dragS & "," & dragEput empty into dragSreturn itend ifput empty into dragSend ifend dragListon dragCursorif the mouseloc is within rect of target then set the cursor to "DragList"else set the cursor to "Cancel"end dragCursoron scrollFld targetFld,modeif the shiftKey is down thenif mode is false then do "set the scroll of" && targetFld && "to 0"else do "set the scroll of" && targetFld && "to 32000"elsedo "put the scroll of" && targetFld && "into p1"do "put the rect of" && targetFld && "into fRect"if mode is false then put item 3 of fRect - 8 & "," & item 2 of fRect + 16 into cLocelse put item 3 of fRect - 8 & "," & item 4 of fRect - 16 into cLocclick at cLocdo "put the scroll of" && targetFld && "into p2"if p2 is p1 then return falseend ifend scrollFldon quotationTxt qMarkglobal CNMeditTextput true into CNMeditTextset the cursor to watchput the selectedChunk into cput the number of chars of (the value of c) into n1put length(the value of c) into n2put word 2 of c into xput the value of c into theTextrepeat with r = 1 to the number of lines of theTextput qMark before line r of theTextend repeatput theText into the selectedChunkif n1 <> n2 then put (the number of chars of theText) + x - 1 into word 4 of celse put length(theText) + x - 1 into word 4 of cselect cend quotationTxton unquotationTxt qMarkglobal CNMeditTextput true into CNMeditTextset the cursor to watchput the selectedChunk into cput word 2 of c into xput the value of c into theTextput the number of chars of (the value of c) into n1put length(the value of c) into n2if n1 <> n2 then put the number of chars of qMark into yelse put length(qMark) into yrepeat with r = 1 to the number of lines of theTextget line r of theTextif char 1 to y of it is qMark thendelete char 1 to y of itput it into line r of theTextend ifend repeatput theText into the selectedChunkif n1 <> n2 then put (the number of chars of theText) + x - 1 into word 4 of celse put length(theText) + x - 1 into word 4 of cselect cend unquotationTxt-- "/E,//,..,/EX" -> "/POST"on changeEndMark filePathglobal cNMmacroReport,CNMdummyput CNMdummy into txtopen file filePathread from file filePath until EOFput it after txtclose file filePathput EtoPOST(txt) into txtput "ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧX" & return & filePath & return after cNMmacroReportopen file filePathwrite txt to file filePathclose file filePathend changeEndMarkfunction EtoPOST txtput "/POST,/E,//,..,/EX" into etrepeat with r = 1 to 5put return & item r of et into kyput offset(ky,txt) into exif ex = 0 then next repeatput the number of chars of txt into eydelete char ex to ey of txtend repeatif last char of txt <> return then put return after txtput "/POST" & return after txtreturn txtend EtoPOST-- ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺon readLogFile filePath,keyWordS,keyWordE,keyWordS2global CNMdummyset the cursor to watchif filePath is empty thenget selectLogFile()if it is empty then exit readLogFileput it into filePathend ifput CNMdummy after keyWordSput CNMdummy after keyWordEput CNMdummy after keyWordS2put empty into logHeaderput empty into theLogput empty into MESNoif "*Prompt*" is in keyWordS or "*Return*" is in keyWordS thenput char 1 to 8 of keyWordS into KWPSdelete char 1 to 8 of keyWordSelse if "*MES*" is in keyWordS thenput "true" into MEScheckdelete char 1 to 5 of keyWordSend ifif "*Prompt*" is in keyWordE or "*Return*" is in keyWordE thenput char 1 to 8 of keyWordE into KWPEdelete char 1 to 8 of keyWordEelse if "*notEmpty*" is in keyWordE thenput "*notEmpty*" into KWPEdelete char 1 to 10 of keyWordEend ifif "*Prompt*" is in keyWordS2 or "*Return*" is in keyWordS2 thenput char 1 to 8 of keyWordS2 into KWPS2delete char 1 to 8 of keyWordS2else if "*MES*" is in keyWordS2 thenput "true" into MEScheckdelete char 1 to 5 of keyWordS2end ifput the number of chars of keyWordS into KSCNput the number of chars of keyWordE into KECNput the number of chars of keyWordS2 into KSCN2put "ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"open file filePathrepeatread from file filePath for 16384put CNMdummy after itif it is empty then exit repeatif logHeader is empty thenput cNifHeader(filePath,it) into logHeaderend ifif the length of theLog > (1024 * 60) then put empty into theLogput it after theLogrepeat while "GO " is in theLog or keyWordS is in theLog or keyWordS2 is in theLog or "MES " is in theLogset the cursor to busy-- ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃ⑴ﾃ雨ﾃ叡ﾃ曳ﾃ､Jﾃｩnﾃｧsﾃ･ﾃｼﾃｨoput empty into cutLineput checkWordLine("GO ",theLog) & "," after cutLineput checkWordLine(keyWordS,theLog,KWPS) & "," after cutLineif keyWordS2 <> empty then put checkWordLine(keyWordS2,theLog,KWPS2) & "," after cutLineif MEScheck is true thenput checkWordLine("MES ",theLog,"*Prompt*") & "," after cutLineput checkWordLine("RX ",theLog,"*Prompt*") & "," after cutLineput checkWordLine("ﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫ",theLog,) & "," after cutLineend ifrepeat with r = the number of items of cutLine down to 1if item r of cutLine is empty then delete item r of cutLineend repeatif cutLine is empty then exit repeatput min(cutLine) into cutLineif cutLine > 1 then delete line 1 to (cutLine - 1) of theLogif the number of lines of theLog is 1 then exit repeatput line 1 of theLog into checkLinedelete line 1 of theLogif "GO " is in checkLine then -- ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃｭﾃ､ﾃｨoget checkPrompt(checkLine,"GO ")if it <> empty thenput it into ForumNameput "ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①" & ForumNameend ifelse if "ﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫ" is in checkLine thenput checkLine into roomNameelse if keyWordS <> "MES " and "MES " is in checkLine or "RX " is in checkLine thenif "MES " is in checkLine then put "MES " into commandelse put "RX " into commandget checkPrompt(checkLine,command)if it <> empty thenput it into MESNoend ifelse if (KWPS <> "*Prompt*" and char 1 to KSCN of checkLine is keyWordS) or (KWPS2 <> "*Prompt*" and char 1 to KSCN2 of checkLine is keyWordS2) or KWPS is "*Prompt*" thenif checkWordLine("GO ",theLog,"*Prompt*") is 1 then next repeatrepeat-- ﾃ雨ﾃ叡ﾃ曳ﾃｨIﾃｳﾏ\ﾃｧsﾃ･ﾃｼﾃｨoput empty into endLineput checkWordLine(keyWordE,theLog,KWPE) & "," after endLineput checkWordLine("GO ",theLog,"*Prompt*") into eGoLineput eGoLine & "," after endLineput checkWordLine("OFF",theLog,"*Prompt*") & "," after endLinerepeat with r = the number of items of endLine down to 1if item r of endLine is empty thendelete item r of endLineend ifend repeatif endLine is empty thenread from file filePath for 16384put CNMdummy after itput it after theLogif it is empty thenexit repeatend ifelseput min(endLine) into endLineexit repeatend ifend repeatif keyWordE is "GO " or KWPE is "*notEmpty*" or keyWordS = keyWordE or keyWordS2 = keyWordE or endLine = eGoLine then put endLine - 1 into endLineput line 1 to endLine of theLog into listdelete line 1 to endLine of theLogsend "RoomTitle ForumName,checkLine & return & list,logHeader,MESNo,roomName" to this cdend ifend repeatend repeatclose file filePathhide msgend readLogFile-- ﾃ鵜ﾃ [ﾃ嘉ｨﾃ [ﾃ栄ﾃｧsﾃ･ﾃｼﾃｨofunction checkWordLine keyWord,theLog,modeput the number of lines of theLog into lnput the number of chars of keyWord into kcnput theLog into workTxtput empty into lrepeat while keyWord is in workTxtput offset(keyWord,workTxt) into cdelete char 1 to (c - 1) of workTxtif char 1 to kcn of workTxt <> keyWord thenrepeat (the number of lines of keyWord - 1)put return before workTxtend repeatend ifput ln - the number of lines of workTxt + 1 into lif mode is "*Prompt*" thenif checkPrompt(line l of theLog,keyWord) <> empty then exit repeatelse delete char 1 to kcn of workTxtelse if mode is "*Return*" thenif char 1 to kcn of line l of theLog is keyWord then exit repeatelse delete char 1 to kcn of workTxtelse if mode is "*notEmpty*" thenif char 1 to kcn of line l of theLog is keyWord and line l of theLog <> keyWord then exit repeatelse delete char 1 to kcn of workTxtelseexit repeatend ifput empty into lend repeatreturn lend checkWordLine-- ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃ⑴ﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ⑴ﾃｮ窶佚ｧﾃ愿ｭﾃ､ﾃｨofunction checkPrompt Txt,commandput "ﾃ ﾃ,FORUM>,MAIL>,LIB>,CCS(N)>,CCS(P)>,CCS(C)>,CCS(R)>,PATIO(N)>,PATIO(P)>,PATIO(C)>,PATIO(R)>,PATIO>,BBS>,more>,next>,FILE>,WSEA>" into promptListput "GO ,MES ,LIB ,RX ,LX ,DO " into comListput MtScanList(comList,command,,true) into cif command is not in Txt then return emptyput offset(command,Txt) - 1 into xif MtScanList(promptList,char 1 to x of Txt,,true) <> empty thenif c is not empty thendelete char 1 to (x + (length(command))) of Txtelsedelete char 1 to x of Txtend ifif command is "DO " thenif "/" is in txt then put char 1 to offset("/",txt) - 1 of txt into txtif length(Txt) > 8 then return emptyelse return txtelse if (command is "GO " and length(Txt) > 8) or (c is empty and Txt <> command) thenreturn emptyelsereturn Txtend ifend ifreturn emptyend checkPrompt-- delTxt ﾃｯsﾃｳvﾃｧsﾃｧﾃ古ｨﾃｺ-- mode before/after:ﾃｫSﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳 / empty:ﾃｧ竕暗ｨIﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳-- DTxt:ﾃ｣ﾃ甘ｪﾃｿﾃﾃfunction readLogFile2 KY1,KY2,filePath,delTxt,mode,K1p,DTxtglobal CNMdummyset the cursor to watchif filePath is empty thenget selectLogFile()if it is empty then return "Cancel"put it into filePathend ifput empty into returnTxtput empty into Headeropen file filePathget the resultif it <> empty thenbeepreturn "Cancel"end ifrepeatset the cursor to busyread from file filePath for 32768put CNMdummy after itif it is empty then exit repeatif Header is empty thenput cNifHeader(filePath,it) into Headerend ifput it after theLogif KY1 is in theLog and last line of theLog <> KY1 thenrepeat until KY1 is not in theLogput item 1 of MtScanList(theLog,KY1) into slif sl <> empty thenif sl > 1 then delete line 1 to (sl - 1) of theLogget line 1 of theLogdelete line 1 of theLogif K1p <> empty thenif offset (KY1,it) <> K1p then next repeatend ifend ifif delTxt is true thenput delChar (theLog,"ﾃｮ窶佚ｧﾃ (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｩﾃｼﾃｯ竕)" & return & "ﾃ ﾃ"& return) into theLogput delChar (theLog,"SET PAGe OFF") into theLogend ifif KY2 is not in theLog thenread from file filePath for 32768if it is empty then exit repeatput it after theLogif delTxt is true thenput delChar (theLog,"ﾃｮ窶佚ｧﾃ (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｩﾃｼﾃｯ竕)" & return & "ﾃ ﾃ"& return) into theLogput delChar (theLog,"SET PAGe OFF") into theLogend ifend ifput offset (KY1,theLog) into pxput offset (KY2,theLog) into pyif px <> 0 and px < py thendelete char 1 to (px - 1) of theLognext repeatend ifif py <> 0 thenif mode <> empty thenget char 1 to (py - 1) of theLog & return & DTxtdo "put it" && mode && "returnTxt"elseput char 1 to (py - 1) of theLog into returnTxtend ifend ifend repeatend ifif KY1 is not in theLog and KY2 is not in theLog or the length of theLog > 49152 then put last line of theLog into theLogend repeatclose file filePathreturn Header & return & returnTxtend readLogFile2-- ﾃｯsﾃｳvﾃｯ竏づｩﾃｶﾃｳﾃ津ｧﾃ古ｨﾃｺfunction delChar theLog,delWordglobal CNMdummyput CNMdummy after theLogput CNMdummy after delWordrepeat until delWord is not in theLogput offset (delWord,theLog) into xif x <> 0 thenput the number of chars of delWord into cndelete char x to (x + cn - 1) of theLogend ifend repeatreturn theLogend delChar-- ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ [ﾃｬ窶｡ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺon delFilesInFldr FldrPath,TargetParam,txtglobal ListSelectExitset the cursor to watchput fileListInFldr(FldrPath,TargetParam) into delFileListif "Icon" is in delFileList thenget MtScanList(delFileList,"Icon",,true)if it <> empty then delete line (item 1 of it) of delFileListend ifif delFileList <> empty thenget ListSelect ("*3",delFileList,txt & "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｧﾃ ﾃｨﾃｺ","NoDoubleClick","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit delFilesInFldrput it into fileListrepeat with r = 1 to the number of lines of fileListset the cursor to busyget line r of fileListput FldrPath & it into filePathif "N:addin_" is in TargetParam thenif checkExceptFile(it,true) is false thenbeepanswer "ﾃｩﾂｩﾃｬﾃﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｫﾅ津ｨ竄ｬﾃﾃ" & quote& it "e& "ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "Cancel" then next repeatend ifend ifMtDeleteFile filePathif the result <> empty then answer the resultend repeatelseanswer "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃ陛窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"end ifend delFilesInFldr-- ->95.04.01function nextDate nput the seconds into theDateadd (86400 * n) to theDateconvert theDate to short datereturn theDateend nextDate-- ﾃｩﾃｼﾃ｢ﾃ津･ﾃｼﾃｧﾄｱﾃｬﾋ凖ｯtﾃ⑿n=ﾃ｢ﾎｩﾃｬﾋ凖ｫOﾃ⒀->950401function nextSEAdate n,modeput the seconds into theDatesubtract (86400 * n) from theDateconvert theDate to dateItemsif mode is true then put item 1 of theDate into yyelse put char 3 to 4 of item 1 of theDate into yyput addZero(item 2 of theDate,2) into mmput addZero(item 3 of theDate,2) into ddreturn yy & mm & ddend nextSEAdatefunction addZero n,lreturn char 1 to max(0,l - length(n)) of "0000000000" & nend addZero-- aligin : L/R/N "N"ﾃﾃ陛厩ﾃ謁ﾃ [ﾃ厩ﾃﾃε窶ｺ-- ("123",5,"L") = "123 "-- ("123",5,"R") = " 123"-- ("123",5,"N") = " "-- ("123",5) = " 123"function putSpace txt,n,aliginget char 1 to (n - length(txt)) of " "if aligin is "L" then return txt & itelse if aligin is "N" then return itelse return it & txtend putSpacefunction checkID iif the length of i <> 8 or char 4 to 8 of i is not a integer then return falserepeat with r = 1 to 3get charToNum(char r of i)if it < 65 or it > 122 or (it > 90 and it < 97) then return falseend repeatreturn trueend checkIDfunction checkDATE cDATEif the length of cDATE <> 6 or cDATE is not a integer then return falseelse return trueend checkDATEfunction markCdListset the cursor to watchput empty into listrepeat with r = 1 to the number of marked cardsput (the short name of marked cd r) & return after listend repeatreturn listend markCdListfunction bgCdListput empty into listput the number of cds of this bg into nrepeat with r = 1 to nput the short name of cd r of this bg & return after listend repeatreturn listend bgCdList-- ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ [ﾃｬ窶｡ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳function fileListInFldr Fldrpath,TargetParamput MtFilesInFldr(Fldrpath,TargetParam) into listif list <> empty thenput path2file(list) into listend ifreturn listend fileListInFldr-- ﾃｨﾂｨﾃｯ竏づｩﾃｶ <-> ﾃｫﾃづｯ竏づｩﾃｶfunction upperLower txt,caseput the number of chars of txt into nrepeat with r = 1 to nget charToNum(char r of txt)if case is false thenif it >= 65 and it <= 90 thenadd 32 to itput numToChar(it) into char r of txtend ifelseif it >= 97 and it <= 122 thensubtract 32 from itput numToChar(it) into char r of txtend ifend ifend repeatreturn txtend upperLower-- ﾃｮ窶佚ｧﾃ愿嘉､ﾃ厩ﾃ曳ﾃｭZﾃｨk("1,2,3,5" --> "1-3,5")-- mode true / false : ﾃｭZﾃｨk / ﾃｯﾃｺﾃ･竕･-- omit true / false : ﾃｨdﾃｯﾂｰﾃｱ竕･ﾃﾂｵﾃ⑿ﾃ噂ﾃ [ﾃ曳ﾃ窶 ﾃﾃ凝⒀ / ﾃｨdﾃｯﾂｰﾃｳLﾃﾃ凝⑿ﾃ噂ﾃ [ﾃ曳ﾃﾂｻﾃﾂｵﾃ⒀-- shortNumber ("8,1-5,3",false,true) --> "1,2,3,4,5,8"-- shortNumber ("8,1-5,3",false,false) --> "8,1,2,3,4,5,3"-- "3-1" or "-3" --> "1,2,3"function shortNumber numList,mode,omitset the cursor to watchput empty into returnListif mode thenif "-" is in numList then put shortNumber(numList,false,omit) into numListget item 1 of numListif it <> empty and it is a integer thenif omit is true then sort items of numList numericput value(item 1 of numList) & "," into workListdelete item 1 of numListelseif "ALL" is in it then return "ALL"else return emptyend ifrepeatget item 1 of numListif it <> empty then get value(it)put it - (last item of workList) into nif not(omit is true and n is 0) thenif n <> 1 thenif the number of items of workList > 2 thenput first item of workList & "-" & last item of workList & "," after returnListelseput workList after returnListend ifput it & "," into workListelseput it & "," after workListend ifend ifif numList is empty then exit repeatdelete item 1 of numListend repeatelserepeat with r = 1 to the number of items of numListget item r of numListif "-" is in it thenput offset("-",it) into pput "," into char p of itsort items of it numericrepeat with i = max(1,item 1 of it) to item 2 of itif omit is true thenif MtScanList(returnList,i,,true) <> empty then next repeatend ifput i & "," after returnListend repeatelseif it <> empty thenget value(it)if omit is true thenif MtScanList(returnList,it,,true) is empty thenput it & "," after returnListend ifelseput it & "," after returnListend ifend ifend ifend repeatif omit is true then sort items of returnList numericend ifdelete last char of returnListreturn returnListend shortNumber-- ﾃｨdﾃｯﾂｰﾃｱﾂｺﾃｯﾅ禿ｧXfunction changeName oldName,list,hyphenglobal CNMdummyif list is empty or MtScanList(list,oldName,,true) is empty then return oldNameif hyphen is empty then put "_" into hyphenput omitText (oldName,29) into newNameput CNMdummy after newNameput the number of chars of newName into nnif nn < 2 or char (nn - 1) of newName <> hyphen thenput hyphen & "1" after newNameadd 2 to nnend ifrepeat with r = 1 to 35set the cursor to busyif MtScanList(list,newName,,true) is empty then exit repeatif r < 10 thenput r into char nn of newNameelseput numToChar(r + 87) into char nn of newNameend ifend repeatreturn newNameend changeName-- ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃｪﾃｿﾃﾃ凝ｩﾃεﾆfunction omitText tText,nglobal CNMdummyput length(tText) into lnif ln > n thenput tText & CNMdummy into tTextrepeat until length(tText) <= ndelete last char of tTextend repeatend ifreturn tTextend omitTextfunction delEmptyLine theTextrepeat with r = the number of lines of theText down to 1set the cursor to busyget line r of theTextif it is empty then delete line r of theTextend repeatreturn theTextend delEmptyLine-- fldﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ荏ﾃ宇ﾃ叡ﾃ丑on checkTextL n,tget length(target)if it > n thenbeepanswer t & "ﾃﾃ" && n && "bytes ﾃ窶ｹﾃ竕暗竕暗竏妥③" & return & "(ﾃ･ﾂｪﾃｧ窶ｺ" && it && "bytes )"select text of the targetend ifend checkTextL-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ 竅ﾃｬﾃﾃ閲ﾃ運ﾃ嘉ｬfunction setGoSTbtn tglobal Stacks,CNMdummyanswer file t & "ﾃﾃ陛ﾂｫﾃﾂｱﾃ竕暗竏妥ﾂｩﾃ⑨" of type "STAK"if it is empty then return emptyset the cursor to watchput it into filePathput getFldrPath(filePath) into folderPathput pathToFile(it) into newNameget script of the targetput CNMdummy after itput last line of it into oldNameif quote & newName & quote <> oldName thenrepeat while it contains oldNameput the number of chars of oldName into cnput quote & newName & quote into char offset (oldName,it) to (offset (oldName,it) + cn - 1) of itend repeatset script of the target to itset the name of the target to newNameend ifif folderPath is not in Stacks thenlock screenset the lockMessages to truepush cardgo cd "Stacks" of stack "home"put return & folderPath after bg fld "paths"put return & folderPath after Stackspop cardend ifreturn value(oldName) &","& newName &","& filePathend setGoSTbtnfunction selectLogFileget LogPath()if it <> empty and the shiftKey is up then MtSetDefaultDir itanswer file "ﾃ嘉ｧﾃ碓ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type textif it is empty then return emptyreturn itend selectLogFilefunction cNifHeader filePath,logput line 1 of log & return & filePath into logif "ComNifty" is not in log thenput the date && the long time && PathToFile(filePath) into line 1 of logend ifreturn logend cNifHeader-- ﾃ厭ﾃ丑ﾃ嘉ｧ --function MacroGoForum1 forumNameput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3return "m: ##" && forumName && "##" & return &ﾂｬ"s:GO" && forumName & "^m" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label2 & ":>" & return &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ&:^mmore>" & return &ﾂｬ"j:" & label3 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ>:^mmore>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"s:SEND OFF^m" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"*: TotalLabel : 3" & returnend MacroGoForum1function MacroGoForum3 forumNameput nextLabel() into label1return "m: ##" && forumName && "##" & return &ﾂｬ"s:GO" && forumName & "^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label1 & ":^mFORUM>" & return &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ&:^mmore>" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ>:^mmore>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"s:SEND OFF^m" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"*: TotalLabel : 1" & returnend MacroGoForum3function MacroGoForum2 forumName,handleName,pput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put nextLabel() into label4put nextLabel() into label5put nextLabel() into label6return "m: ##" && forumName && "##" & return &ﾂｬ"s:GO" && forumName & "^m" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label2 & ":>" & return &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label2 & ":>" & return &ﾂｬ"m:" && "[" && forumName && "]" && "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉" & p & "ﾃｬﾂｸﾃ｢ﾃ" & return &ﾂｬ"s:3^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label3 & ":^mﾃ ﾃ" & return &ﾂｬ"*:ﾃｩﾃ ﾃｱﾂｺ (ﾃ､ﾃｸﾃｩﾃｶﾃ竕8ﾃｯ竏づｩﾃｶﾃ ﾂｻﾃｬ窶｡ ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃｩﾂｿﾃｱﾂｺ)" & return &ﾂｬ"s:" & handleName & "^m" & return &ﾂｬ"*:ﾃ､mﾃｮF" & return & "r:^mﾃ⑦" & return & "s:1^m" & return &ﾂｬ"*:ﾃｬoﾃｲ^ (1:ﾃｬoﾃｲ^ﾃ竏妥ﾃ 2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return &ﾂｬlabel4 & ":" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label5 & ":>" & return &ﾂｬlabel3 & ":" & return &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:FORUM>ﾆ&:more>" & return &ﾂｬ"j:" & label6 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"t:" & label6 & ":1:." & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel5 & ":" & return &ﾂｬ"t:" & label6 & ":1:." & return &ﾂｬ"j:" & label4 & return &ﾂｬlabel6 & ":" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ>:^mmore>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"s:SEND OFF^m" & return & "r:^mFORUM>" & return &ﾂｬ"*: TotalLabel : 6" & returnend MacroGoForum2function MMlibVerreturn "1.4"end MMlibVer</script>
